жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжЖжЖжЖ 


Ж Traffic Lighting б 


ЖЖЖ ЖЖ ЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


REPORT zdemo_alv5. 


жжжжжжжжжжжжжжжжжжжжжжжжжжж 


* Туре - Pools * 
жжжжжжжжжжжжжжжжжжжжжжжжжжж 


TYPE-POOLS slis. 


жжжжжжжжжжжжжжжжжжжжжжжжжжж 


А Data type Ж 


жжжжжжжжжжжжжжжжжжжжжжжжжжж 


TYPES : BEGIN ОҒ {у екко, 
lifnr ТҮРЕ lifnr, 
ереіп TYPE ереіп, 
aedat ТҮРЕ erdat, 
pprior TYPE priority, 
trf_Ight TYPE 1, 
END OF ty_ekko. 


TYPES ty_t_ekko TYPE TABLE OF ty_ekko. 


DATA : it_ekko TYPE ty_t_ekko, 
wa_ekko TYPE ty_ekko, 
it_fieldcat TYPE 5115 t_fieldcat_alv, 
wa_fieldcat ТҮРЕ slis_ fieldcat_alv, 
is layout TYPE slis layout_alv, 
v_lifnr TYPE ekko-lifnr. 


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE 
text-001. 


жжжжжжжжжжжжжжжжжжжжжжжжжж 


* Constants * 
жжжжжжжжжжжжжжжжжжжжжжжжжж 


CONSTANTS с сһесК ТҮРЕ с VALUE 'Х'. 


жжжжжжжжжжжжжжжжжжжжжжжжжжж 


* Select-Options * 
жжжжжжжжжжжжжжжжжжжжжжжжжжж 


SELECT-OPTIONS 5 lifnr FOR v_lifnr. 


SELECTION-SCREEN END OF BLOCK bl. 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


j START-OF-SELECTION. * 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


START-OF-SELECTION. 


SELECT lifnr ebeln aedat pprior INTO TABLE it_ekko FROM ek 
ko 

WHERE lifnr IN s_lifnr 

AND 

рргіог <> SPACE . 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


* END-OF-SELECTION. * 


жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


END-OF-SELECTION. 


CLEAR wa _fieldcat. 
wa_fieldcat-fieldname = 'LIFNR'. 
wa_fieldcat-col pos = 1. 
wa_fieldcat-seltext_m = ‘Vendor по". 
wa_fieldcat-key = c_check. 

APPEND wa_fieldcat to it_fieldcat. 


CLEAR wa _fieldcat. 
wa_fieldcat-fieldname = "'ЕВЕІМ/". 
wa_fieldcat-col_ pos = 2. 


wa_fieldcat-seltext_m = "Ро Мо... 
APPEND wa_fieldcat to it_fieldcat. 


CLEAR wa _fieldcat. 
wa_fieldcat-fieldname = 'АЕРАТ". 
wa_fieldcat-col pos = 3. 
wa_fieldcat-seltext_m = 'Сгеї. date’. 
APPEND wa_fieldcat to it_fieldcat. 


CLEAR wa _fieldcat. 
wa_fieldcat-fieldname  "рргіог. 
wa_fieldcat-col_ pos = 4. 
wa_fieldcat-seltext_m = ‘Priority '. 
APPEND wa_fieldcat to it_fieldcat. 


жжжжжжжжжжжжжжжжжжжжжжжжж 


* is layout ш 
жжжжжжжжжжжжжжжжжжжжжжжжж 


is layout-lights_fieldname = "ТАЕ СНТ". 


CLEAR ма еККо. 

wa_ekko-trf_Ight = 1. 
MODIFY it_ekko FROM wa_ekko TRANSPORTING trf_Ight WH 
ERE pprior = 'L'. 


CLEAR wa_ekko. 

wa_ekko-trf_Ight = 2. 
MODIFY it_ekko FROM wa_ekko TRANSPORTING trf_Ight WH 
ERE pprior = "М". 


CLEAR wa_ekko. 

wa_ekko-trf_Ight = 3. 
MODIFY it_ekko FROM wa_ekko TRANSPORTING trf_Ight WH 
ERE pprior = 'Н'. 


ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖжжжжж 


" REUSE ALV_GRID_DISPLAY | 
жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
CALL FUNCTION 'REUSE ALV_GRID_DISPLAY' 
EXPORTING 
is layout = is layout 
it_fieldcat = it_fieldcat 
TABLES 
t_outtab = it_ekko. 


REPORT 2ОЕМО ІМ5ЕВТ РВТҮ ІМ EKKO. 


PARAMETERS : p_ebeln ТҮРЕ ебет, p_prty(1) ТҮРЕ с. 


update ekko set рргіог = p_prty WHERE ереп = р ереп. 


IF sy-subrc = 0. 
COMMIT WORK. 
MESSAGE ‘Successfully Saved' TYPE '5'. 
ELSE. 
MESSAGE 'Not Saved' TYPE 'E'. 
ENDIF. 


Output Window 


(т 


List Edit 


С ап еае вив атра MA 


alv 5 


3000000004 
3000000005 


0000005550 
0000005550 


02.11.2000 
02.11.2000 


Goto Views Settings System Help 


20001102 
20001102 


3000000006 | 
3000000007 | 
3000000008 


0000003020 
0000003730 


0000003910 


02.11.2000 
02.11.2000 
02.11.2000 


20001102 
20001102 
20001102 


3000000009 | 
23000000010. 
3000000011 


0000003411 
0000003411 
0000003730 


02.11.2000 
02.11.2000 
02.11.2000 


20001102 | 
(20001102 | 
20001102 


